﻿Imports Microsoft.VisualBasic

Namespace JPC.Medialibrary.UI

    Public Class MusicMenu
        Inherits List(Of ListItem)

        Sub New(ByVal CommandType As String, ByVal CommandArgument As Integer)
            Dim i As ListItem
            i = New ListItem
            i.CommandName = "GetSongsBy" + CommandType
            i.CommandArgument = CommandArgument
            i.Text = "Canciones"
            Me.Add(i)
            i = New ListItem
            i.CommandName = "GetArtistsBy" + CommandType
            i.CommandArgument = CommandArgument
            i.Text = "Artistas"
            Me.Add(i)
            i = New ListItem
            i.CommandName = "GetAlbumsBy" + CommandType
            i.CommandArgument = CommandArgument
            i.Text = "Discos"
            Me.Add(i)
        End Sub
    End Class

End Namespace
